Workplace Effectiveness:…ecision-Making Strategies/Workplace Effectiveness: Decision-Making Strategies.iso/pc/Files/Main.dxr/00003_final screen buttons.ls

Text File | 1998-12-16 | 463 b | 33 lines

on goQuitScreen
  exitLeafMenu()
  go(label("quit"))
end

on finalButtons
  case the clickOn of
    15:
      quitNow()
    16:
      go(label("Main"))
      setPrompter()
    17:
      finalPrint()
    18:
      finalSave()
    19:
      go("biblio")
    20:
      go("credits")
  end case
end

on finalPrint
  gatherAllParts()
  print(the text of member "PrintAllAnswers")
end

on finalSave
  set vLottaText to gatherAllParts()
  saveTextToFile(vLottaText)
end